inherited fmSearchPeople: TfmSearchPeople
  Left = 471
  Top = 303
  Width = 721
  Height = 569
  BorderIcons = [biMinimize, biMaximize]
  Caption = #1055#1086#1080#1089#1082
  Constraints.MinHeight = 569
  Constraints.MinWidth = 626
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 504
    Width = 705
  end
  inherited Panel1: TPanel
    Width = 705
    Height = 38
    inherited BitBtn1: TBitBtn
      Left = 346
      Width = 165
      Caption = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1100' '#1079#1072#1074#1077#1076#1077#1085#1080#1077
    end
    inherited BitBtn2: TBitBtn
      Left = 522
      Width = 173
      Caption = #1071' '#1087#1086#1085#1103#1083', '#1088#1077#1075#1080#1089#1090#1088'. '#1085#1077' '#1073#1091#1076#1091
      Glyph.Data = {00000000}
      Kind = bkCustom
    end
  end
  object rgCriteria: TRadioGroup [2]
    Left = 0
    Top = 38
    Width = 705
    Height = 41
    Align = alTop
    Caption = ' '#1050#1088#1080#1090#1077#1088#1080#1081' '#1087#1086#1080#1089#1082#1072' '
    Columns = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      #1055#1086' '#1092#1072#1084#1080#1083#1080#1080)
    ParentFont = False
    TabOrder = 2
    Visible = False
  end
  object dbgClients: TcxGrid [3]
    Left = 0
    Top = 161
    Width = 705
    Height = 343
    Align = alClient
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object dbgClientsDBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbgClientsDBTableView1PLASTNAME1: TcxGridDBColumn
        Caption = #1060#1072#1084#1080#1083#1080#1103
        DataBinding.FieldName = 'PLASTNAME'
        Width = 99
      end
      object dbgClientsDBTableView1PNAME1: TcxGridDBColumn
        Caption = #1048#1084#1103
        DataBinding.FieldName = 'PNAME'
        Width = 62
      end
      object dbgClientsDBTableView1PPATRONYMIC1: TcxGridDBColumn
        Caption = #1054#1090#1095#1077#1089#1090#1074#1086
        DataBinding.FieldName = 'PPATRONYMIC'
        Width = 107
      end
      object dbgClientsDBTableView1PDATEBIRTH1: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
        DataBinding.FieldName = 'PDATEBIRTH'
        Width = 123
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = dbgClientsDBTableView1
    end
  end
  object Panel2: TPanel [4]
    Left = 0
    Top = 79
    Width = 705
    Height = 82
    Align = alTop
    TabOrder = 4
    Visible = False
    DesignSize = (
      705
      82)
    object Label1: TLabel
      Left = 96
      Top = 7
      Width = 75
      Height = 13
      Caption = #1057#1090#1088#1086#1082#1072' '#1087#1086#1080#1089#1082#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object sbFindClient: TSpeedButton
      Left = 617
      Top = 26
      Width = 26
      Height = 22
      Hint = #1053#1072#1081#1090#1080
      Anchors = [akRight, akBottom]
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbFindClientClick
    end
    object edString: TEdit
      Left = 96
      Top = 26
      Width = 512
      Height = 21
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qPeopleSearch
    Left = 88
    Top = 152
  end
  object qSdocumentami: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforeOpen = qPeopleSearch1BeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      
        'SELECT P.*, (P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||P.PPATRONYMIC) AS P' +
        'P, SD.SDNAME,'
      
        '    ('#39#1044#1086#1082#1091#1084#1077#1085#1090': '#39'||SD1.SDNAME||'#39', '#1089#1077#1088#1080#1103': '#39'||PD.DSERIA||'#39', '#1085#1086#1084#1077#1088':' +
        ' '#39'||PD.DNUMBER||'#39', '#1076#1072#1090#1072' '#1074#1099#1076'.: '#39'||PD.DDATE||'#39', '#1074#1099#1076#1072#1085': '#39'||PD.DFROM' +
        'WHO) AS DOC'
      'FROM PEOPLE P'
      'LEFT OUTER JOIN P_POSITION POS ON pos.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = POS.POSTYPE'
      'LEFT OUTER JOIN P_DOCUMENTS PD ON PD.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC SD1 ON SD1.SDID = PD.DTYPE'
      'WHERE P.PISDELETE IS NULL'
      'AND CURRENT_DATE BETWEEN POS.POSDATEBEGIN AND POS.POSDATEEND'
      'and  UPPER(P.PLASTNAME) CONTAINING :LN'
      'ORDER BY 3,2,4')
    Left = 152
    Top = 195
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LN'
        ParamType = ptUnknown
      end>
    object IntegerField1: TIntegerField
      DisplayLabel = #1053#1086#1084#1077#1088
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103
      FieldName = 'PLASTNAME'
      Origin = '"PEOPLE"."PLASTNAME"'
      Size = 255
    end
    object IBStringField2: TIBStringField
      DisplayLabel = #1048#1084#1103
      FieldName = 'PNAME'
      Origin = '"PEOPLE"."PNAME"'
      Size = 255
    end
    object IBStringField3: TIBStringField
      DisplayLabel = #1054#1090#1095#1077#1089#1090#1074#1086
      FieldName = 'PPATRONYMIC'
      Origin = '"PEOPLE"."PPATRONYMIC"'
      Size = 255
    end
    object DateField1: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object IBStringField4: TIBStringField
      DisplayLabel = #1055#1086#1079#1080#1094#1080#1103
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object IBStringField5: TIBStringField
      DisplayLabel = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
      DisplayWidth = 50
      FieldName = 'PNOTE'
      Origin = '"PEOPLE"."PNOTE"'
      Size = 2048
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'PTIMEENTER'
      Origin = '"PEOPLE"."PTIMEENTER"'
    end
    object DateTimeField2: TDateTimeField
      FieldName = 'PTIMEEDIT'
      Origin = '"PEOPLE"."PTIMEEDIT"'
    end
    object IBStringField6: TIBStringField
      FieldName = 'PUSERENTER'
      Origin = '"PEOPLE"."PUSERENTER"'
      Size = 40
    end
    object IBStringField7: TIBStringField
      FieldName = 'PUSEREDIT'
      Origin = '"PEOPLE"."PUSEREDIT"'
      Size = 40
    end
    object IntegerField2: TIntegerField
      FieldName = 'PISDELETE'
      Origin = '"PEOPLE"."PISDELETE"'
    end
    object IBStringField8: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Visible = False
      Size = 767
    end
    object IBStringField9: TIBStringField
      DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090
      FieldName = 'DOC'
      ProviderFlags = []
      Size = 590
    end
  end
  object qPeopleSearch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.*, (P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||P.PPATRONYMIC) AS P' +
        'P'
      'FROM PEOPLE P'
      'WHERE (UPPER(P.PLASTNAME) CONTAINING :NAME)'
      '    AND P.PDATEBIRTH = :data'
      'ORDER BY 3,2,4')
    Left = 152
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NAME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'data'
        ParamType = ptUnknown
      end>
    object qPeopleSearchPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeopleSearchPNAME: TIBStringField
      FieldName = 'PNAME'
      Origin = '"PEOPLE"."PNAME"'
      Size = 255
    end
    object qPeopleSearchPLASTNAME: TIBStringField
      FieldName = 'PLASTNAME'
      Origin = '"PEOPLE"."PLASTNAME"'
      Size = 255
    end
    object qPeopleSearchPPATRONYMIC: TIBStringField
      FieldName = 'PPATRONYMIC'
      Origin = '"PEOPLE"."PPATRONYMIC"'
      Size = 255
    end
    object qPeopleSearchPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qPeopleSearchPSEX: TIntegerField
      FieldName = 'PSEX'
      Origin = '"PEOPLE"."PSEX"'
    end
    object qPeopleSearchPNOTE: TIBStringField
      FieldName = 'PNOTE'
      Origin = '"PEOPLE"."PNOTE"'
      Size = 2048
    end
    object qPeopleSearchPUSERENTER: TIBStringField
      FieldName = 'PUSERENTER'
      Origin = '"PEOPLE"."PUSERENTER"'
      Size = 40
    end
    object qPeopleSearchPTIMEENTER: TDateTimeField
      FieldName = 'PTIMEENTER'
      Origin = '"PEOPLE"."PTIMEENTER"'
    end
    object qPeopleSearchPUSEREDIT: TIBStringField
      FieldName = 'PUSEREDIT'
      Origin = '"PEOPLE"."PUSEREDIT"'
      Size = 40
    end
    object qPeopleSearchPTIMEEDIT: TDateTimeField
      FieldName = 'PTIMEEDIT'
      Origin = '"PEOPLE"."PTIMEEDIT"'
    end
    object qPeopleSearchPISDELETE: TIntegerField
      FieldName = 'PISDELETE'
      Origin = '"PEOPLE"."PISDELETE"'
    end
    object qPeopleSearchPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
  end
end
